VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{736A8444-E374-41A8-B526-1B07FD2F3F5B}#1.0#0"; "BLacKPeaRLOCX.ocx"
Begin VB.Form FrmPendaftaranUser 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ClientHeight    =   5640
   ClientLeft      =   0
   ClientTop       =   -45
   ClientWidth     =   6840
   FillColor       =   &H00FFFFFF&
   ForeColor       =   &H00FFFFFF&
   Icon            =   "FrmPendaftaranUser.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5640
   ScaleWidth      =   6840
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
      Height          =   5655
      Left            =   0
      TabIndex        =   18
      Top             =   0
      Width           =   6855
      _ExtentX        =   12091
      _ExtentY        =   9975
      BackColor1      =   0
      BackColor2      =   4210752
      Caption         =   "Pendaftaran User/Operator"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   0
      TitleColor2     =   4210752
      TitleGradient   =   2
      TitleHeight     =   350
      BorderColor     =   49152
      BorderWidth     =   2
      Begin VB.TextBox txtact 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         IMEMode         =   3  'DISABLE
         Left            =   1230
         MaxLength       =   3
         TabIndex        =   4
         Top             =   2085
         Width           =   495
      End
      Begin BLacKPeaRLOCX.BLacKFrame Framefoto 
         Height          =   2055
         Left            =   3480
         TabIndex        =   27
         Top             =   360
         Visible         =   0   'False
         Width           =   1815
         _ExtentX        =   3201
         _ExtentY        =   3625
         BackColor1      =   0
         BackColor2      =   8421504
         Caption         =   ""
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         TextPosition    =   0
         TitleColor1     =   8421504
         TitleColor2     =   0
         TitleGradient   =   2
         BorderColor     =   49152
         Begin VB.Image Foto 
            Height          =   1950
            Left            =   50
            Stretch         =   -1  'True
            ToolTipText     =   "Click to exit"
            Top             =   45
            Width           =   1720
         End
      End
      Begin VB.TextBox txtpath 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   4710
         TabIndex        =   9
         Top             =   1605
         Width           =   1815
      End
      Begin VB.TextBox TxtAlamat 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   4710
         TabIndex        =   8
         Top             =   1125
         Width           =   1815
      End
      Begin VB.TextBox TxtTelpon 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   4710
         TabIndex        =   7
         Top             =   645
         Width           =   1815
      End
      Begin VB.TextBox TxtPassword 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         IMEMode         =   3  'DISABLE
         Left            =   1230
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   1605
         Width           =   1215
      End
      Begin VB.TextBox TxtNama 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   1230
         TabIndex        =   1
         Top             =   1125
         Width           =   2295
      End
      Begin VB.TextBox TxtUser 
         BackColor       =   &H00404040&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   250
         Left            =   1230
         TabIndex        =   0
         Top             =   645
         Width           =   2295
      End
      Begin BLacKPeaRLOCX.ButtonNix CmdViewPass 
         Height          =   375
         Left            =   2640
         TabIndex        =   3
         Top             =   1560
         Width           =   615
         _ExtentX        =   1085
         _ExtentY        =   661
         BTYPE           =   5
         TX              =   "View"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmPendaftaranUser.frx":B532
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin BLacKPeaRLOCX.ButtonNix cmdPreview 
         Height          =   375
         Left            =   5760
         TabIndex        =   11
         Top             =   2040
         Width           =   975
         _ExtentX        =   1720
         _ExtentY        =   661
         BTYPE           =   5
         TX              =   "Preview"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmPendaftaranUser.frx":B54E
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin BLacKPeaRLOCX.ButtonNix cari 
         Height          =   375
         Left            =   4680
         TabIndex        =   10
         Top             =   2040
         Width           =   975
         _ExtentX        =   1720
         _ExtentY        =   661
         BTYPE           =   5
         TX              =   "Cari"
         ENAB            =   -1  'True
         BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         COLTYPE         =   2
         FOCUSR          =   0   'False
         BCOL            =   1184274
         BCOLO           =   16777215
         FCOL            =   49152
         FCOLO           =   49152
         MCOL            =   12632256
         MPTR            =   1
         MICON           =   "FrmPendaftaranUser.frx":B56A
         UMCOL           =   -1  'True
         SOFT            =   0   'False
         PICPOS          =   0
         NGREY           =   0   'False
         FX              =   0
         HAND            =   0   'False
         CHECK           =   0   'False
         VALUE           =   0   'False
      End
      Begin MSComDlg.CommonDialog cmdlg 
         Left            =   4080
         Top             =   1920
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
      Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame2 
         Height          =   735
         Left            =   120
         TabIndex        =   25
         Top             =   4800
         Width           =   6615
         _ExtentX        =   11668
         _ExtentY        =   1296
         BackColor1      =   0
         BackColor2      =   4210752
         Caption         =   ""
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   255
         TitleColor1     =   0
         TitleColor2     =   4210752
         TitleGradient   =   2
         TitleHeight     =   350
         BorderColor     =   49152
         BorderWidth     =   2
         Begin BLacKPeaRLOCX.ButtonNix cmdedit 
            Height          =   495
            Left            =   1800
            TabIndex        =   13
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Edit"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranUser.frx":B586
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdHapus 
            Height          =   495
            Left            =   3480
            TabIndex        =   14
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Hapus"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranUser.frx":B5A2
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdTutup 
            Height          =   495
            Left            =   5040
            TabIndex        =   15
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Tutup"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranUser.frx":B5BE
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdSimpan 
            Height          =   495
            Left            =   240
            TabIndex        =   12
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Simpan Baru"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranUser.frx":B5DA
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdUbah 
            Height          =   495
            Left            =   1800
            TabIndex        =   17
            Top             =   120
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   873
            BTYPE           =   5
            TX              =   "Simpan Edit"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmPendaftaranUser.frx":B5F6
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
      End
      Begin VB.OptionButton TxtLoginAdmin 
         BackColor       =   &H00000000&
         Caption         =   "Admin"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   2520
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   2520
         Width           =   1215
      End
      Begin VB.OptionButton TxtLoginUser 
         BackColor       =   &H00000000&
         Caption         =   "User"
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   1200
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   2520
         Width           =   1095
      End
      Begin MSFlexGridLib.MSFlexGrid Grid 
         Height          =   1815
         Left            =   120
         TabIndex        =   16
         Top             =   2880
         Width           =   6615
         _ExtentX        =   11668
         _ExtentY        =   3201
         _Version        =   393216
         Cols            =   8
         FixedCols       =   0
         BackColor       =   0
         ForeColor       =   49152
         BackColorFixed  =   8421504
         ForeColorFixed  =   65280
         BackColorSel    =   8388608
         ForeColorSel    =   128
         BackColorBkg    =   0
         GridColor       =   16384
         GridColorFixed  =   16384
         Enabled         =   0   'False
         Appearance      =   0
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "Menit"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   1800
         TabIndex        =   29
         Top             =   2040
         Width           =   975
      End
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "Active Login"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   240
         TabIndex        =   28
         Top             =   2040
         Width           =   1455
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1200
         Shape           =   4  'Rounded Rectangle
         Top             =   2040
         Width           =   570
      End
      Begin VB.Shape Shape25 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   4680
         Shape           =   4  'Rounded Rectangle
         Top             =   1560
         Width           =   1890
      End
      Begin VB.Shape Shape24 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   4680
         Shape           =   4  'Rounded Rectangle
         Top             =   1080
         Width           =   1890
      End
      Begin VB.Shape Shape23 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   4680
         Shape           =   4  'Rounded Rectangle
         Top             =   600
         Width           =   1890
      End
      Begin VB.Shape Shape21 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1200
         Shape           =   4  'Rounded Rectangle
         Top             =   1560
         Width           =   1290
      End
      Begin VB.Shape Shape18 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1200
         Shape           =   4  'Rounded Rectangle
         Top             =   1080
         Width           =   2370
      End
      Begin VB.Shape Shape14 
         BackColor       =   &H00004040&
         BackStyle       =   1  'Opaque
         BorderColor     =   &H00C0FFC0&
         Height          =   345
         Left            =   1200
         Shape           =   4  'Rounded Rectangle
         Top             =   600
         Width           =   2370
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "Path Foto"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   3720
         TabIndex        =   26
         Top             =   1560
         Width           =   975
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "Jenis User"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   240
         TabIndex        =   24
         Top             =   2520
         Width           =   1335
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "No. Telpon"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   3720
         TabIndex        =   23
         Top             =   600
         Width           =   1455
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "Alamat"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   3720
         TabIndex        =   22
         Top             =   1080
         Width           =   1455
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "Nama Asli"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   240
         TabIndex        =   21
         Top             =   1080
         Width           =   1455
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "Password"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   240
         TabIndex        =   20
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "Nama User"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000C000&
         Height          =   255
         Left            =   240
         TabIndex        =   19
         Top             =   600
         Width           =   1455
      End
   End
End
Attribute VB_Name = "FrmPendaftaranUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cari_Click()
Grid.Enabled = False
cmdlg.Filter = "Semua Gambar(*.jpg)|*.jpg|Bitmap(*.bmp)|*.bmp|GIF(*.gif)|*.gif|Semua Files(*.*)|*.*|"
cmdlg.ShowOpen
Set Foto.Picture = LoadPicture(cmdlg.FileName)
txtpath.Text = cmdlg.FileName
End Sub

Private Sub cmdedit_Click()
CmdUbah.Visible = True
cmdedit.Visible = False
Grid.Enabled = True
End Sub

Private Sub cmdhapus_Click()
On Error GoTo hell
If FrmMain.lgas.Text = "user" Then
MsgBox "Akses dibatalkan, anda tidak memiliki hak akses untuk menghapus data ini.", vbCritical, "Restricted Area"
Else
    If MsgBox("Anda yakin akan menghapus Operator " & Grid.TextMatrix(Grid.Row, 0) & " dari " & FrmMain.Txtnama_warnet.Caption & ".", vbYesNo + vbInformation, "Prompt delete") = vbYes Then
    rec.Open "SELECT  * From useraccount where username  = '" & Grid.TextMatrix(Grid.Row, 0) & "'", conn, adOpenStatic, adLockOptimistic
    If rec.RecordCount = 0 Then
    Set rec = Nothing
    MsgBox "Tidak ada data yang akan di hapus. cek data yang akan di hapus.", vbInformation, "Nothing to Delete"
    Else
    If Not rec.RecordCount = 0 Then
    If Grid.TextMatrix(Grid.Row, 0) = FrmMain.usnm.Text Then
            MsgBox "Nama user ini tidak bisa dihapus jika status login. ", vbInformation, "Cannot Be Delete"
            Else
        If rec(2) = "root" Then
            MsgBox "Root: Nama user ini tidak bisa dihapus. ", vbInformation, "Root Cannot Be Delete"
            Else
            rec.Delete
        End If
        End If
    End If
    End If
    rec.Close
    End If
    bersih
    TxtUser.Text = ""
    TxtUser.SetFocus
     Call loadgrid
     End If
IfNoErr:
Exit Sub
hell:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "cmdHapus_Click", Me.Name
 Resume IfNoErr

End Sub

Private Sub cmdPreview_Click()
Framefoto.Visible = True
End Sub

Private Sub CmdSimpan_Click()
On Error GoTo hell
Dim passwd As String
    passwd = EncryptText(TxtPassword.Text, "password")
        If txtnama.Text = "" And TxtUser.Text = "" And TxtPassword.Text = "" Then
        MsgBox " Username, Nama Asli dan Password wajib diisi", vbInformation, "Not Complete Data"
Else
    If FrmMain.lgas.Text = "user" Then
    MsgBox "Maaf, anda tidak bisa menambahkan operator baru tanpa seizin administrator.", vbInformation, "Restricted Access"
    Else
    rec.Open "SELECT useraccount.* FROM useraccount WHERE useraccount.username = '" & TxtUser.Text & "'", conn, adOpenStatic, adLockOptimistic
    If Not rec.RecordCount = 0 Then
        If rec(2) = "root" Then
            rec(0) = TxtUser.Text
            rec(5) = passwd
            rec(1) = txtnama.Text
            rec(3) = TxtAlamat.Text
            rec(4) = TxtTelpon.Text
            rec(2) = "root"
            rec(6) = txtpath.Text
            rec(7) = Val(txtact.Text) * 60
            rec(8) = Format(Now, "dd-mm-yy")
            rec(9) = Val(txtact.Text) * 60
            rec.Update
        Else
            rec(0) = TxtUser.Text
            rec(5) = passwd
            rec(1) = txtnama.Text
            rec(3) = TxtAlamat.Text
            rec(4) = TxtTelpon.Text
            rec(6) = txtpath.Text
            rec(7) = Val(txtact.Text) * 60
            rec(8) = Format(Now, "dd-mm-yy")
            rec(9) = Val(txtact.Text) * 60
            If TxtLoginAdmin.value = True Then
                rec(2) = "admin"
            Else
                rec(2) = "user"
            End If
            rec.Update
        End If
    Else
    If txtnama.Text = "" And TxtUser.Text = "" And TxtPassword.Text = "" Then
        MsgBox " Username, Nama Asli dan Password wajib diisi", vbInformation, "Not Complete Data"
    Else
        rec.AddNew
        rec(0) = TxtUser.Text
        rec(5) = passwd
        rec(1) = txtnama.Text
        rec(3) = TxtAlamat.Text
        rec(4) = TxtTelpon.Text
        rec(6) = txtpath.Text
        rec(7) = Val(txtact.Text) * 60
        rec(8) = Format(Now, "dd-mm-yy")
        rec(9) = Val(txtact.Text) * 60
        If TxtLoginAdmin.value = True Then
            rec(2) = "admin"
        Else
            rec(2) = "user"
        End If
        rec.Update
    End If
    End If
    rec.Close
    bersih
    TxtUser.Text = ""
    TxtUser.SetFocus
    Call loadgrid
    End If
    End If
IfNoErr:
Exit Sub
hell:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "CmdSimpan_Click", Me.Name
 Resume IfNoErr

End Sub
Private Sub CmdTutup_Click()
    Unload Me
End Sub
Private Sub CmdUbah_Click()
On Error GoTo gobloK
Dim passwd As String
    passwd = EncryptText(TxtPassword.Text, "password")
    rec.Open "Select useraccount.* From useraccount Where useraccount.username ='" & TxtUser.Text & "'", conn, , adLockOptimistic
    If rec.RecordCount = 0 Then
    Set rec = Nothing
    MsgBox "Tidak ada data yang akan di ubah cek data yang akan di ubah.", vbInformation, "Nothing to Edit"
Else
If TxtPassword.Text = "" Then
MsgBox "Password harus diisi", vbInformation, "Password Blank"
Set rec = Nothing
Else
    rec(1) = txtnama.Text
    If rec(0) = "root" Then
    rec(2) = "root"
    Else
    If TxtLoginUser.value = True Then
    rec(2) = "user"
    End If
    If TxtLoginAdmin.value = True Then
    rec(2) = "admin"
    End If
    End If
    rec(3) = TxtAlamat.Text
    rec(4) = TxtTelpon.Text
    rec(5) = passwd
    rec(6) = txtpath.Text
    rec(9) = Val(txtact.Text) * 60
    rec.Update
    rec.Close
     Call loadgrid
    End If
End If
        bersih
    TxtUser.Text = ""
    TxtUser.SetFocus
    cmdedit.Visible = True
Grid.Enabled = False

IfNoErr:
Exit Sub
gobloK:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "CmdUbah", Me.Name
 Resume IfNoErr

End Sub

Private Sub CmdViewPass_Click()
TxtPassword.PasswordChar = ""
TxtPassword.SetFocus
End Sub
Private Sub Form_Load()
loadgrid
StyleS
End Sub
Private Sub Foto_Click()
Framefoto.Visible = False
End Sub

Private Sub Grid_Click()
Dim passwd As String
passwd = DecryptText(Grid.TextMatrix(Grid.Row, 5), "Password")
If FrmMain.usnm.Text = "root" Then
TxtUser.Text = Grid.TextMatrix(Grid.Row, 0)
txtnama.Text = Grid.TextMatrix(Grid.Row, 1)
TxtAlamat.Text = Grid.TextMatrix(Grid.Row, 3)
TxtTelpon.Text = Grid.TextMatrix(Grid.Row, 4)
TxtPassword.Text = passwd
txtpath.Text = Grid.TextMatrix(Grid.Row, 6)
txtact.Text = Val(Grid.TextMatrix(Grid.Row, 7)) / 60
ElseIf FrmMain.lgas.Text = "admin" Then
If Grid.TextMatrix(Grid.Row, 0) = "root" Then
MsgBox "Akses dibatalkan, anda tidak memiliki hak untuk merubah " & Grid.TextMatrix(Grid.Row, 0), vbCritical, "Restricted Area"

Else
TxtUser.Text = Grid.TextMatrix(Grid.Row, 0)
txtnama.Text = Grid.TextMatrix(Grid.Row, 1)
TxtAlamat.Text = Grid.TextMatrix(Grid.Row, 3)
TxtTelpon.Text = Grid.TextMatrix(Grid.Row, 4)
TxtPassword.Text = passwd
txtpath.Text = Grid.TextMatrix(Grid.Row, 6)
txtact.Text = Val(Grid.TextMatrix(Grid.Row, 7)) / 60
End If
ElseIf Grid.TextMatrix(Grid.Row, 0) <> FrmMain.usnm.Text Then
MsgBox "Akses dibatalkan, anda tidak memiliki hak untuk merubah " & Grid.TextMatrix(Grid.Row, 0), vbCritical, "Restricted Area"
Else
TxtUser.Text = Grid.TextMatrix(Grid.Row, 0)
txtnama.Text = Grid.TextMatrix(Grid.Row, 1)
TxtAlamat.Text = Grid.TextMatrix(Grid.Row, 3)
TxtTelpon.Text = Grid.TextMatrix(Grid.Row, 4)
TxtPassword.Text = passwd
txtpath.Text = Grid.TextMatrix(Grid.Row, 6)
txtact.Text = Val(Grid.TextMatrix(Grid.Row, 7)) / 60
End If
End Sub

Private Sub TxtAlamat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtTelpon.SetFocus
    End If
End Sub


Private Sub TxtLoginAdmin_Click()
If FrmMain.lgas.Text = "user" Then
MsgBox "Maaf, anda tidak bisa menjadi administrator tanpa seizin administrator.", vbInformation, "Restricted Area"
TxtLoginAdmin.value = False
TxtLoginUser.value = True
End If
End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtAlamat.SetFocus
    End If
End Sub

Private Sub TxtPassword_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtnama.SetFocus
    End If
End Sub

Private Sub TxtTelpon_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtLoginUser.SetFocus
    End If
End Sub


Private Sub TxtUser_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If Not TxtUser.Text = "" Then
            CekUser
        End If
    End If
End Sub


Private Sub CekUser()
On Error GoTo hell
    rec.Open "SELECT useraccount.* FROM useraccount WHERE useraccount.username = '" & TxtUser.Text & "'", conn, adOpenStatic, adLockOptimistic
    If rec.RecordCount = 0 Then
        Baru
    Else
        TxtPassword.Text = DecryptText(rec(5), "password")
        txtnama.Text = rec(1)
        TxtAlamat.Text = rec(3)
        TxtTelpon.Text = rec(4)
        If rec(2) = "root" Then
            TxtLoginAdmin.value = True
            TxtLoginUser.value = False
        ElseIf rec(2) = "admin" Then
            TxtLoginAdmin.value = True
            TxtLoginUser.value = False
        Else
            TxtLoginUser.value = True
            TxtLoginAdmin.value = False
        End If
        CmdUbah.Enabled = True
        CmdHapus.Enabled = True
        CmdSimpan.Enabled = False
    End If
    rec.Close
IfNoErr:
Exit Sub
hell:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "CekUser", Me.Name
 Resume IfNoErr

End Sub
Private Sub bersih()
    TxtPassword.Text = ""
    txtnama.Text = ""
    TxtAlamat.Text = ""
    TxtTelpon.Text = ""
    TxtLoginUser.value = False
    TxtLoginAdmin.value = False
End Sub
Private Sub Baru()
    bersih
    TxtPassword.SetFocus
    CmdSimpan.Enabled = True
    CmdUbah.Enabled = False
    CmdHapus.Enabled = False
End Sub
Private Sub loadgrid()
On Error GoTo hell
Grid.TextMatrix(0, 0) = "Nama User"
Grid.TextMatrix(0, 1) = "Nama Asli"
Grid.TextMatrix(0, 2) = "Level"
Grid.TextMatrix(0, 3) = "Alamat"
Grid.TextMatrix(0, 4) = "No Telepon"
Grid.TextMatrix(0, 5) = "Password"
Grid.TextMatrix(0, 6) = "Path"
Grid.TextMatrix(0, 7) = "Login Time"
    Grid.ColWidth(0) = 1200
    Grid.ColWidth(1) = 1600
    Grid.ColWidth(2) = 2250
    Grid.ColWidth(3) = 2250
    Grid.ColWidth(4) = 2250
    Grid.ColWidth(5) = 0
    Grid.ColWidth(6) = 0
    Grid.ColWidth(7) = 0
    rec.Open "SELECT useraccount.* FROM useraccount", conn, adOpenStatic, adLockOptimistic
    If Not rec.RecordCount = 0 Then
        Grid.Rows = rec.RecordCount + 1
        rec.MoveFirst
        For i = 1 To rec.RecordCount
            Grid.TextMatrix(i, 0) = rec(0)
            Grid.TextMatrix(i, 1) = rec(1)
            Grid.TextMatrix(i, 2) = rec(2)
            Grid.TextMatrix(i, 3) = rec(3)
            Grid.TextMatrix(i, 4) = rec(4)
            Grid.TextMatrix(i, 5) = rec(5)
            Grid.TextMatrix(i, 6) = rec(6)
            Grid.TextMatrix(i, 7) = rec(9)
            rec.MoveNext
        Next i
    Else
        Grid.Rows = 1
    End If
    rec.Close
IfNoErr:
Exit Sub
hell:
 'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "loadgrid", Me.Name
 Resume IfNoErr

End Sub

Private Sub StyleS()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Controls
If FrmStyles.txtnamastyle.Text = "Default" Then
Exit Sub
Else
    If (TypeOf ctrl Is ButtonNix) And _
        ctrl.Name <> "cmdSwitchStyle" Then
        ctrl.ButtonType = FrmStyles.txtlButtonType.Text
        ctrl.ColorScheme = FrmStyles.txtlColorScheme.Text
        ctrl.Backcolor = FrmStyles.txtlBackcolor.Text
        ctrl.BackOver = FrmStyles.txtlBackOver.Text
        ctrl.Forecolor = FrmStyles.txtlForecolor.Text
        ctrl.ForeOver = FrmStyles.txtlForeOver.Text
       
    End If
        If (TypeOf ctrl Is BLacKFrame) And _
        ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.BackColor1 = FrmStyles.frameBackColor1.Text
         ctrl.BackColor2 = FrmStyles.frameBackColor2.Text
         ctrl.BorderColor = FrmStyles.frameBorderColor.Text
         ctrl.Forecolor = FrmStyles.frameForecolor.Text
         ctrl.TitleColor1 = FrmStyles.frameTitleColor1.Text
         ctrl.TitleColor2 = FrmStyles.frameTitleColor2.Text
         If FrmStyles.frameBackGradient.Text = 0 Then
         ctrl.BackGradient = None
         ElseIf FrmStyles.frameBackGradient.Text = 1 Then
         ctrl.BackGradient = Vertical
         ElseIf FrmStyles.frameBackGradient.Text = 2 Then
         ctrl.BackGradient = Horizontal
         End If
         
         If FrmStyles.Frametitlegradient.Text = 0 Then
         ctrl.TitleGradient = None
         ElseIf FrmStyles.Frametitlegradient.Text = 1 Then
         ctrl.TitleGradient = Vertical
         ElseIf FrmStyles.Frametitlegradient.Text = 2 Then
         ctrl.TitleGradient = Horizontal
         End If

    End If
        If (TypeOf ctrl Is BLacKText) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.TForecolor.Text
         ctrl.Backcolor = FrmStyles.TBackcolor.Text
         ctrl.BackColorMain = FrmStyles.TBackColorMain.Text
         ctrl.BorderColor = FrmStyles.TBorderColor.Text
         ctrl.FocusBackColor = FrmStyles.TFocusBackColor.Text
         ctrl.FocusBackMainColor = FrmStyles.TFocusBackMainColor.Text
         ctrl.FocusBorderColor = FrmStyles.TFocusBorderColor.Text
         ctrl.FocusForeColor = FrmStyles.TFocusForeColor.Text
    End If
        If (TypeOf ctrl Is MSFlexGrid) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.GDBackcolor.Text
         ctrl.BackColorBkg = FrmStyles.GDBackColorBkg.Text
         ctrl.BackColorSel = FrmStyles.GDBackColorSel.Text
         ctrl.BackColorFixed = FrmStyles.GDBackColorFixed.Text
         ctrl.ForeColorSel = FrmStyles.GDForeColorSel.Text
         ctrl.Forecolor = FrmStyles.GDForecolor.Text
         ctrl.ForeColorFixed = FrmStyles.GDForeColorFixed.Text
         ctrl.GridColor = FrmStyles.GDGridColor.Text
         ctrl.GridColorFixed = FrmStyles.GDGridColorFixed.Text
    End If
        If (TypeOf ctrl Is TextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lbltextfore.Text
         ctrl.Backcolor = FrmStyles.lbltextback.Text
    End If
        If (TypeOf ctrl Is ComboBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.cboForeColor.Text
         ctrl.Backcolor = FrmStyles.cboBackcolor.Text
    End If
        If (TypeOf ctrl Is Label) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lblForeColor.Text
    End If
        If (TypeOf ctrl Is RichTextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.RcBackcolor.Text
    End If
    
            If (TypeOf ctrl Is OptionButton) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.opForecolor.Text
         ctrl.Backcolor = FrmStyles.opBackcolor.Text
    End If
            If (TypeOf ctrl Is ListView) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.LBackColor.Text
    End If
    Me.Backcolor = FrmStyles.WFore.Text
    End If
Next ctrl
End Sub

Private Sub txtuser_GotFocus()
TxtUser.Backcolor = &H0&
TxtUser.Forecolor = vbWhite
End Sub
Private Sub txtuser_LostFocus()
TxtUser.Backcolor = &H404040
TxtUser.Forecolor = &HC000&
End Sub
Private Sub TxtNama_GotFocus()
txtnama.Backcolor = &H0&
txtnama.Forecolor = vbWhite
End Sub
Private Sub TxtNama_LostFocus()
txtnama.Backcolor = &H404040
txtnama.Forecolor = &HC000&
End Sub
Private Sub TxtPassword_GotFocus()
TxtPassword.Backcolor = &H0&
TxtPassword.Forecolor = vbWhite
End Sub
Private Sub TxtPassword_LostFocus()
TxtPassword.Backcolor = &H404040
TxtPassword.Forecolor = &HC000&
TxtPassword.PasswordChar = "*"
End Sub
Private Sub TxtAlamat_GotFocus()
TxtAlamat.Backcolor = &H0&
TxtAlamat.Forecolor = vbWhite
End Sub
Private Sub TxtAlamat_LostFocus()
TxtAlamat.Backcolor = &H404040
TxtAlamat.Forecolor = &HC000&
End Sub
Private Sub txtact_GotFocus()
txtact.Backcolor = &H0&
txtact.Forecolor = vbWhite
End Sub
Private Sub txtact_LostFocus()
txtact.Backcolor = &H404040
txtact.Forecolor = &HC000&
End Sub
Private Sub TxtTelpon_GotFocus()
TxtTelpon.Backcolor = &H0&
TxtTelpon.Forecolor = vbWhite
End Sub
Private Sub TxtTelpon_LostFocus()
TxtTelpon.Backcolor = &H404040
TxtTelpon.Forecolor = &HC000&
End Sub

Private Sub txtpath_GotFocus()
txtpath.Backcolor = &H0&
txtpath.Forecolor = vbWhite
End Sub
Private Sub txtpath_LostFocus()
txtpath.Backcolor = &H404040
txtpath.Forecolor = &HC000&
End Sub

